home *** CD-ROM | disk | FTP | other *** search
/ .net 1998 February / netCD41.iso / pc / DEMO16.DIR / Internal_260_eagle3 on.ls < prev    next >
Encoding:
Text File  |  1997-12-08  |  450 b   |  22 lines
  1. on mouseDown
  2.   global gt, section
  3.   set gt to 0
  4.   puppetSound(2, "click")
  5.   updateStage()
  6.   cursor(4)
  7.   sound fadeOut 1, 60
  8.   waitforfade()
  9.   puppetSprite(the clickOn, 0)
  10.   if the type of the member of sprite 36 = #digitalVideo then
  11.     set the movieRate of sprite 36 to 0
  12.   end if
  13.   repeat with n = 1 to 30
  14.     puppetSprite(n, 0)
  15.     set the cursor of sprite n to 0
  16.   end repeat
  17.   puppetSound(0)
  18.   set section to "menu"
  19.   play done
  20.   cursor(-1)
  21. end
  22.